home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tn.d64 / tutor-music.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  12KB  |  230 lines
  1. 0 PRINTCHR$(14)CHR$(8):GOTO110
  2. 10 A$="":GETA$:IFA$=""OR(A$<>"[133]"ANDA$<>"[134]")GOTO10
  3. 11 I=1-(A$="[134]"):J=J+(2*I-3):IFJ>0THENPRINT"[147]"SPC(31)"PAGE"J"[154]":RETURN
  4. 12 RUN
  5. 110 PRINT"[147][195]64 [198]OUR-[214]OICE [205]USIC [154] BY  [195]ARL [203]ARSTADT
  6. 120 [153]"CONT(WITH PLAUDITS TO LEFT$AL LENHAMBERLIN FOR
  7. 125 PRINT"SHOWING THE WAY ([212]ORPET ISSUES 19-22)).
  8. 130 [129]I[178]0[164]1999:[130]:[153]"(null)HIS IS A TUTORIAL ON THE FOUR-VOICE    MUSIC PROGRAM.
  9. 140 PRINT"[212]O GO FORWARD IN THE  TEXT, PRESS F3[146].
  10. 150 [153]"(null)O GO BACKWARD IN THE TEXT, PRESS F1WAIT.
  11. 200 GOSUB10:ONIGOTO110
  12. 210 PRINT"[212]HE FOUR-VOICE MUSIC PROGRAM WILL ALLOW YOU TO PLAY AND COMPOSE";
  13. 220 PRINT" MUSIC WITH FOUR VOICES INSTEAD OF THE USUAL THREE.
  14. 230 [153]"(null)HESE VOICES HAVE ACCURATE TUNING, AND  CAN BE PLAYED USING FOUR";
  15. 240 [153]" DIFFERENT      WAVEFORMS (ONE WAVE FOR ALL VOICES).
  16. 245 PRINT"[212]HE PROGRAM LETS YOU";
  17. 250 PRINT" SPECIFY THE VOICES IN MUSICAL TERMS, AND TO PLAY THE MUSIC WITH";
  18. 260 PRINT" PRECISE TIMING AND A WIDE RANGE OF TEMPOS.
  19. 300 [141]10:[145]I[137]110
  20. 310 [153]"(null)NFORTUNATELY, YOU'LL NEED SOME EXTRA   EQUIPMENT:
  21. 330 PRINT"1: [196]/[193] [195]ONVERTER (SEE PAGE 3[154])
  22. 340 [153]"2: HI-FI (OR OTHER) AMPLIFIER AND          LOUDSPEAKER(S)
  23. 350 PRINT"3: AUDIO CABLE TO CONNECT THE [196]/[193] TO THE   AMPLIFIER
  24. 360 [153]"4: JOYSTICK
  25. 400 GOSUB10:ONIGOTO210
  26. 410 PRINT"[196]/[193] [195]ONVERTER A LA [202]IM [194]UTTERFIELD       (SEE [212]ORPET # 19):
  27. 420 [153]"(null)SER  STR$/ATN LENONVERTER":[153]"(null)ORT    CIRCUIT":[153]"  =^"
  28. 425 [153]"  -ATN TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  29. 430 PRINT"  [171][195] [192]3.2[205][192][178][192][178][192]8.2[203][192][179]
  30. 431 [153]"  -STR$ TAN1.6(null)TAN< (null)      (null)
  31. 432 PRINT"  [171][197] [192]800[203][192][179] [221]      [221]
  32. 433 [153]"  -ASC TAN400(null)TAN< (null)      (null)
  33. 434 PRINT"  [171][200] [192]200[203][192][179] [221]330N[198] [221]
  34. 435 [153]"  -MID$ TAN100(null)TAN< (null)  (null)(null)  (null)
  35. 436 PRINT"  [171][203] [192][192]50[203][192][179] [173][192][192][179][171][192][192][179]
  36. 437 [153]"  -(null) TANTAN25(null)TAN<    (null)(null)  (null)
  37. 440 PRINT"  [177][189]       [221]        [221]
  38. 441 [153]"          TAN>TAN       (null)
  39. 442 PRINT"     100N[198][192][178][192]       [221]
  40. 443 [153]"           (null)        (null)
  41. 444 PRINT"     OUTPUT*  GROUND*";
  42. 500 GOSUB10:ONIGOTO310
  43. 510 PRINT"[212]HERE ARE 2 VERSIONS OF THE FOUR-VOICE  PROGRAM AVAILABLE.
  44. 520 [153]"VALACH ONE WORKS ON A DIFFERENT LEN64 SYSTEMAS FOLLOWS:
  45. 530 PRINT"1 [195]64[212]-4[214][205] FOR DATASETTE (TAPE),
  46. 540 [153]"2 LEN64STR$-4(null)(null) FOR 1541 DISK DRIVE.
  47. 570 PRINT" ([212]HERE ARE ALSO FOUR [214][201][195]-20 VERSIONS.)
  48. 600 [141]10:[145]I[137]410
  49. 610 [153]"LEFT$ERE'S HOW TO USE THE FOUR-VOICE PROGRAM
  50. 620 PRINT"1 [195]ONNECT THE [196]/[193] CONVERTER TO THE [213]SER   [208]ORT AND TO THE AMPLIFIER.
  51. 630 [153]"2 LENONNECT THE JOYSTICK TO PORT # 2.
  52. 640 PRINT"3 [212]URN ON THE COMPUTER SYSTEM, AND THEN   THE AMP.
  53. 650 [153]"4 (null)(null)ATNSTR$WAIT, THEN (null)(null)(null)WAIT THE PROGRAM VERSION FOR  YOUR SYSTEM.
  54. 660 PRINT"5 [211]ELECT OPTION 7[154] TO AUTOMATICALLY GET    THE PROGRAM TUNED UP.
  55. 670 [153]"6 (null)ELECT OPTION 8CONT TO SET THE WAVEFORM,
  56. 680 PRINT"  USING THE OPTIONS SHOWN ON THE MENU.
  57. 700 [141]10:[145]I[137]510
  58. 710 [153]"7 (null)OU CAN NOW CHOOSE OPTION 3CONT TO LOAD A   SONG FROM TAPE/DISK,";
  59. 720 [153]" OR OPTION 2CONT TO     ENTER MUSIC DATA (EG FROM SHEET         MUSIC).
  60. 730 PRINT"  [201]F YOU WANT OPTION 2[154] THEN SKIP FORWARD  TO PAGE 11[154]."
  61. 740 PRINT"  [207]THERWISE, PRESS F3[146] ONCE TO CONTINUE.
  62. 800 [141]10:[145]I[137]610
  63. 810 [153]"(null)O LOAD, SAVE, OR VERIFY SONGS USING THETAPE/DISK, NOTE THAT";
  64. 820 [153]" DATA IS HANDLED AS A PROGRAM FILE. (null)HILE THIS IS EFFICIENT,";
  65. 830 [153]"IT REQUIRES USE OF THE DYNAMIC SCREEN   TECHNIQUE. RIGHT$T ALSO";
  66. 840 [153]" CAUSES THE PEEKATN(null)RIGHT$LEN     PROGRAM POINTERS TO BE RESET. (null)INCE AN  ERROR";
  67. 850 [153]" IN THE DATA HANDLING OR DEVICE    ACCESS COULD CAUSE YOU TO LOSE THE";
  68. 860 [153]"      PROGRAM IN YOUR LEN64, THE DATA HANDLING  STATEMENTS ARE PRINTED";
  69. 870 [153]" VISIBLY ON SCREENTO HELP YOU RECOVER FROM SERIOUS ERRORS.
  70. 900 GOSUB10:ONIGOTO710
  71. 910 PRINT"[212]HE KEY TO RECOVERY IS TO DO A [210][197][212][213][210][206][146] ONTHE SCREEN LINE WHICH ENDS
  72. 920 [153]"...:CHR$(null)(null)(null)960CONT
  73. 930 PRINT"[212]HIS LINE RESETS THE [194][193][211][201][195] POINTERS SO  THAT THE PROGRAM CAN CONTINUE.
  74. 1000 [141]10:[145]I[137]810
  75. 1010 [153]"RIGHT$T SHOULD BE NOTED THAT THE MOST LIKELY INSTANCE OF HAVING TO";
  76. 1020 [153]" RECOVER MANUALLY  WILL OCCUR WHEN A SONG FILE ON TAPE IS
  77. 1030 PRINT"NOT FOUND WHILE ATTEMPTING TO LOAD OR   VERIFY. [201]N THIS CASE";
  78. 1040 PRINT" YOU MUST (SOMEHOW) STOP THE [195]64 FROM ACCESSING THE
  79. 1050 [153]"DATASETTE. (null)ATIENCE MAY BE NECESSARY    SINCE THE (null)(null)(null)(null)WAIT KEY DOES NOT";
  80. 1060 [153]" ALWAYS WORK RIGHT AWAY AND YOU MUST NOT DO          (null)(null)(null)(null)/(null)VAL(null)(null)(null)(null)VALWAIT";
  81. 1070 [153]" OR THE RECOVERY LINE WILL  BE ERASED.
  82. 1100 GOSUB10:ONIGOTO910
  83. 1110 PRINT"[195]AVEATS ASIDE, THE DATA HANDLING IS AS  FAST AND EFFICIENT AS POSSIBLE.
  84. 1120 [153]"(null)HIS IS DUE TO THE USE OF PROGRAM FILES,AND ALSO BECAUSE THE";
  85. 1130 [153]" AMOUNT OF DATA     SAVED VARIES WITH THE LENGTH OR COMPLEX-ITY OF THE";
  86. 1140 [153]" SONG. (null)HIS AMOUNT IS SET BY  THE RESPONSE TO THE PROMPT (null)ATN(null) PEEKATN(null) #CONT,
  87. 1150 PRINT"WHICH APPEARS AFTER CHOOSING THE [211][193][214][197][154]   OPTION ON THE MAIN MENU.
  88. 1160 [153]"ASCURTHER DETAILS ON THE USE OF BAR #'S   ARE GIVEN IN THE NEXT SECTION.
  89. 1200 GOSUB10:ONIGOTO1010
  90. 1210 PRINT"[212]HIS SECTION SHOWS HOW MUSIC IS         ORGANIZED IN THE PROGRAM.
  91. 1220 [153]"(null)HE BASIC UNIT USED IS THE 'STEP', WHICHIS A PIECE OF DATA THAT";
  92. 1230 [153]" SPECIFIES THE   PITCH OF EACH OF THE FOUR VOICES.
  93. 1240 PRINT"[211]TEPS ARE GROUPED INTO 'BAR'S AT 16 PER BAR. [193]LL OF THE STEPS IN A";
  94. 1250 PRINT" BAR HAVE THE SAME TIME DURATION, FOR INSTANCE A 16TH NOTE. [212]HE";
  95. 1260 PRINT" STEP TIME-VALUE IS SET BY THE NUMBER UNDER THE [212][201][205][197][154]";
  96. 1270 PRINT" HEADING IN THE BARDISPLAY.
  97. 1300 [141]10:[145]I[137]1110
  98. 1310 [153]"(null)HE LENGTH OF A BAR IN STORAGE IS ALWAYS16 STEPS, BUT YOU CAN SET";
  99. 1320 [153]" THE PLAYABLE  LENGTH TO BE FROM 1 THROUGH 16 STEPS BY CHANGING THE";
  100. 1330 [153]" NUMBER UNDER (null)ATN(null)(null)CONT IN THE   BAR DISPLAY.
  101. 1340 PRINT"[201]N COMBINATION, THE VARIABLE NUMBER OF  STEPS PER BAR AND THE";
  102. 1350 PRINT" VARIABLE TIME-PER-STEP IN EACH BAR MEAN THAT";
  103. 1360 PRINT" THE PROGRAM  CAN PLAY VIRTUALLY ANY NOTE";
  104. 1370 PRINT" DURATION, ORIN ANY TIME SIGNATURE.
  105. 1400 [141]10:[145]I[137]1210
  106. 1410 [153]"LEFT$ERE IS A TABLE OF THE (null)RIGHT$(null)VALCONT VALUES      POSSIBLE FOR STEP DURATIONS:
  107. 1420 PRINT"[212]IME [176][192][210]ELATIVE [206]OTE[192][174]                   #        [196]URATION
  108. 1430 [153]" 0            1/2
  109. 1431 PRINT" 1            1/4
  110. 1432 [153]" 2    TRIPLET 1/4
  111. 1433 PRINT" 3            1/8
  112. 1434 [153]" 4    TRIPLET 1/8
  113. 1435 PRINT" 5            1/16
  114. 1436 [153]" 6    TRIPLET 1/16
  115. 1437 PRINT" 7            1/32
  116. 1438 [153]" 8    TRIPLET 1/32
  117. 1439 PRINT" 9            1/64
  118. 1440 [153]" 10   TRIPLET 1/64
  119. 1441 PRINT" 11           1/128
  120. 1442 [153]" 12   QUINTUPLET 1/4
  121. 1500 GOSUB10:ONIGOTO1310
  122. 1510 PRINT"[197]G. BARS 1 AND 2 HAVE LENGTHS OF 16 AND 12 STEPS RESPECTIVELY, AND";
  123. 1520 PRINT" BOTH HAVE    EACH STEP EQUAL TO A 16TH NOTE          ([212][201][205][197][154] = 5[154]):
  124. 1530 [153]"> BAR 1 COULD BE 4/4                    > BAR 2 COULD BE 3/4
  125. 1540 PRINT"> BAR 1 FOLLOWED BY BAR 2 COULD BE ONE    BAR OF 7/4.
  126. 1550 [153]"> RIGHT$F BAR 2 IS CHANGED TO TRIPLET 16THS    (6CONT)";
  127. 1560 [153]" IT COULD BE A HALF-BAR OF 4/4       TRIPLETS.
  128. 1570 PRINT"> [201]F BAR 1 IS CHANGED TO EIGHTH NOTES
  129. 1580 [153]"  (3CONT), IT COULD BE TWO BARS OF 4/4.
  130. 1600 GOSUB10:ONIGOTO1410
  131. 1610 PRINT"[194]ARS ARE IDENTIFIED BY NUMBER. [212]HE RANGEIS 0 THROUGH 239.
  132. 1630 [153]"(null)HE LIMIT IS 239 INSTEAD OF 255 TO ALLOWMUSIC DATA-FILE ";
  133. 1635 [153]"COMPATIBILITY WITH THE  (null)RIGHT$LEN-20 VERSIONS.
  134. 1636 PRINT"[215]HEN YOU ENTER MUSIC DATA (IE EDIT A
  135. 1640 [153]"'BAR') YOU SHOULD USE BARS IN ORDER,    STARTING AT BAR 0.
  136. 1650 PRINT"[212]HE REASON IS THAT THE PROGRAM [211][193][214][197][154]S THEMUSIC DATA FROM BAR 0";
  137. 1660 PRINT" UP TO THE [205][193][216] [194][193][210] #[154] WHICH YOU SPECIFY";
  138. 1670 PRINT" (INSTEAD OF SAVING  THE ENTIRE DATA AREA EACH TIME)!
  139. 1700 [141]10:[145]I[137]1510
  140. 1710 [153]"RIGHT$N MAIN MENU OPTION 2CONT,YOU CAN EDIT      EITHER BARS OR SONGS, OR COPY";
  141. 1720 [153]" ONE BAR TOANOTHER (OR TO ITSELF!) WITH OR WITHOUT TRANSPOSITION.
  142. 1730 PRINT"[213]SE OF THE [195][207][208][217][154] OPTION IS FAIRLY        OBVIOUS.
  143. 1740 [153]"ASCOR DETAILS OF THE (null)(null)(null)CHR$CONT OPTION SEE PAGE 20CONT.
  144. 1750 PRINT"[198]OR DETAILS OF THE [194][193][210][154] OPTION PRESS F3[146]  ONCE.
  145. 1800 [141]10:[145]I[137]1610
  146. 1810 [153]"(null)OU CAN PLAY, CLEAR, OR EDIT A BAR. (null)(null)ATN(null)CONTREQUIRES A TEMPO INPUT";
  147. 1820 [153]" WHICH IS IN BEATSPER MINUTE. (null)HE BAR WILL PLAY CONTINU-
  148. 1830 PRINT"OUSLY UNTIL YOU PULL [196][207][215][206][146] ON THE        JOYSTICK.
  149. 1840 [153]"LEN(null)VALATN(null)CONT WILL ERASE THE BAR, AND IS USUALLYADVISABLE BEFORE";
  150. 1850 [153]" EDITING A BAR FOR THE  FIRST TIME.
  151. 1860 PRINT"[197][196][201][212][154] WILL CAUSE THE BAR DATA TO BE SHOWNON THE SCREEN.
  152. 1900 [141]10:[145]I[137]1710
  153. 1910 [153]"(null)HE BAR IS SHOWN WITH THE FOUR VOICES   ACROSS THE SCREEN, AND THE";
  154. 1920 [153]" 16 STEPS     GOING DOWN.
  155. 1925 PRINT"[212]HE BAR #, [212][201][205][197][154] # (SEE PAGE 13[154]), AND    [204][193][211][212][154] STEP #";
  156. 1930 PRINT" ARE SHOWN BELOW THE BAR     DATA.
  157. 1940 [153]"ATNT THIS POINT, THE PROGRAM HAS STOPPED, AND SHOULD ONLY BE";
  158. 1950 [153]" RESTARTED BY MOVING  THE CURSOR OVER THE LINE CHR$(null)(null)(null)400CONT, AND
  159. 1960 PRINT"THEN HITTING [210][197][212][213][210][206][146]. [207]THERWISE THE      PROGRAM WILL NOT BE ";
  160. 1970 PRINT"ABLE TO READ THE    UPDATED BAR DATA BACK IN.
  161. 2000 [141]10:[145]I[137]1810
  162. 2010 [153]"(null)HE CURSOR KEYS ALLOW FULL-SCREEN       EDITING OF THE BAR DATA.
  163. 2020 PRINT"[197]ACH VOICE IS SET BY OCTAVE (1-7) AND   NOTE NAME:
  164. 2030 [153]"(LEN ,LEN#,STR$ ,STR$#,VAL ,ASC ,ASC#,CHR$ ,CHR$#,ATN ,ATN#,PEEK ).
  165. 2040 PRINT"[206]OTICE THAT THERE ARE NO FLATS:         EG. USE [193]# INSTEAD OF [194]B.
  166. 2050 [153]"(null)O TURN OFF ANY VOICE,MAKE THE OCTAVE 0.
  167. 2060 PRINT"[212]HE LOWEST NOTE IS 1[195] AT ABOUT 16[200]Z.    [205]IDDLE [195] IS 5[195], AND [193] ";
  168. 2070 PRINT"(440[200]Z) IS 5[193]. [212]HEHIGHEST NOTE IS 7[194] AT ABOUT 2K[200]Z.
  169. 2100 [141]10:[145]I[137]1910
  170. 2110 [153]"(null)HE (null)(null)(null)CHR$CONT OPTION OF THE LEN(null)(null)(null)(null)(null)VALCONT MENU LETSYOU CHAIN UP TO";
  171. 2120 [153]" 255 BARS TO MAKE A SONG.(null)HIS ALSO MEANS THAT YOU CAN EASILY
  172. 2130 PRINT"REPEAT BARS OR ENTIRE SECTIONS OF THE   SONG.
  173. 2140 [153]"(null)HE SEQUENCE OF BARS CAN BE PLACED      ANYWHERE WITHIN THE SONG ";
  174. 2150 [153]"DATA AREA, AS  LONG AS THE  ENTIRE PIECE FITS IN SONG  BAR #'S 0-254.
  175. 2200 GOSUB10:ONIGOTO2010
  176. 2210 PRINT"EG. SUPPOSE YOU INPUT THE DATA FOR EIGHTBARS OF A 12-BAR SONG ";
  177. 2220 PRINT"(USING BAR #'S    0-7) AND THEN NOTICE THAT THE LAST FOUR BARS ARE ";
  178. 2230 PRINT"IDENTICAL TO THE FIRST FOUR.   [217]OU WOULD THEN STOP ENTERING NEW BAR
  179. 2240 [153]"DATA, AND WOULD CHAIN THE BARS IN THE   FORM OF THE SONG:
  180. 2245 PRINT"0,1,2,3,4,5,6,7,0,1,2,3.
  181. 2250 [153]"(null)HEY SHOULD OCCUPY SONG BARS 1 THROUGH
  182. 2260 PRINT"12, BUT COULD BE PUT ANYWHERE IN THE    SONG DATA AREA.
  183. 2270 [153]"ATNSIDE: THE (null)ATN(null)CLOSEPEEKATN(null) #CONT IN THIS CASE IS 7.
  184. 2300 GOSUB10:ONIGOTO2110
  185. 2310 PRINT"[206]OTES:[211][207][206][199][154] EDITING:
  186. 2320 [153]"(null)RY NOT TO USE SONG BAR 0, SINCE THE BARNUMBER THERE WILL ";
  187. 2330 [153]"CHANGE IF YOU (null)(null)ATN(null)CONT A  BAR WHILE IN THE BAR-EDIT SECTION.
  188. 2340 PRINT"[194]AR NUMBERS MUST BE LEFT-JUSTIFIED (THEYARE DISPLAYED THAT WAY).
  189. 2350 [153]"(null)HE SONG DATA EDITOR IS FULL-SCREEN,    LIKE THE BAR DATA EDITOR,";
  190. 2360 [153]" SO YOU MUST BESURE TO HIT (null)VAL(null)(null)(null)(null)WAIT ONLY ON THE CHR$(null)(null)(null)810CONT  LINE.
  191. 2400 GOSUB10:ONIGOTO2210
  192. 2410 PRINT"[212]O PLAY A SONG, SELECT OPTION 1[154] ON THE  MAIN MENU. [217]OU WILL HAVE TO";
  193. 2420 PRINT" ENTER THE   START AND END BARS OF THE SONG, IN TERMSOF THE SONG";
  194. 2430 PRINT" BAR NUMBERS. [193] SONG 24 BARS LONG MIGHT BE STORED AS SONG BARS 1
  195. 2440 [153]"THROUGH 25, OR 46 THROUGH 70, OR ...
  196. 2450 PRINT"[217]OU WILL ALSO NEED TO SPECIFY THE TEMPO IN  BEATS PER MINUTE.
  197. 2460 [153]"ATNS SOON AS YOU PRESS (null)VAL(null)(null)(null)(null)WAIT, THE MUSIC  WILL START. (null)O STOP IT,";
  198. 2470 [153]" PULL STR$(null)(null)(null)WAIT ON THEJOYSTICK.
  199. 2600 GOSUB10:ONIGOTO2310
  200. 2610 PRINT"[207]PTION 6[154] OF THE MAIN MENU LETS YOU SAVE A TITLE ALONG WITH THE";
  201. 2620 PRINT" SONG DATA. [217]OU   SPECIFY THE FIRST AND LAST (SONG) BAR   #'S, AND";
  202. 2630 PRINT" THEN ENTER THE TITLE, UP TO 14 CHARACTERS.
  203. 2640 [153]"(null)RY TO INCLUDE A RECOMMENDED TEMPO VALUEIN THE TITLE,
  204. 2650 PRINT"EG. '[205][201][206][213][197][212] @150'                       OR  '[208][210][197][204][213][196][197] -[195][160]@80'.
  205. 2660 [153]"(null)HIS TITLE NEED NOT BE THE SAME AS THE  ONE YOU USE TO SAVE THE";
  206. 2670 [153]" SONG ON         TAPE/DISK.
  207. 2700 GOSUB10:ONIGOTO2410
  208. 2710 PRINT"[199]ENERAL NOTES:":PRINT"1 [194]E CAREFUL UNTIL YOU GET USED TO THE    FULL";
  209. 2720 PRINT" SCREEN EDITOR(S).":PRINT"2 [201]F YOU DON'T SEE WHAT YOU WANT ON ANY
  210. 2730 [153]"  OF THE LEN(null)(null)(null)(null)(null)VALCONT MENUS HIT (null)VAL(null)(null)(null)(null)WAIT TO      RECALL AN EARLIER MENU.
  211. 2740 PRINT"  [212]O CANCEL OTHER ACTIVITIES JUST [211][212][207][208][146]    AND [210][213][206][146] AGAIN.
  212. 2750 [153]"3 (null)O EXIT THE MAIN MENU HIT (null)VAL(null)(null)(null)(null)WAIT.
  213. 2760 PRINT"4 [197]NTER [217][154] OR [206][154] WHEN THE PROMPT SAYS        [211][213][210][197] ?[154] OR [207][203] ?[154].
  214. 2770 [153]"5 STR$ON'T USE QUOTES IN THE TITLE OR FILE   NAME.
  215. 2780 PRINT"6 [211]TUDY THE MUSIC DEMO '[193]RIOSO IN [199]'!
  216. 2900 [141]10:[145]I[137]2610
  217. 2910 [153]"ATNUTHOR'S NOTE: (null)HAT'S ALL THE WISDOM RIGHT$  COULD PACK INTO AN 8(null)+ (null)RIGHT$LEN";
  218. 2915 [153]", WHICH IS    WHAT THE 4(null)(null) PROGRAMS WERE DEVELOPED ON!
  219. 2920 PRINT"[201]F YOU GET REALLY STUCK WITH THE PROGRAMYOU CAN WRITE ME WITH ";
  220. 2930 PRINT"A [211][193][211][197] AND [201]'LL   TRY TO SET YOU STRAIGHT. [201]F YOU'VE GOT
  221. 2940 [153]"ANY SUGGESTIONS OR TRIED AND TRUE       IMPROVEMENTS, ALSO PLEASE WRITE.
  222. 2950 PRINT"[201] HOPE THAT ALL USERS WILL BE SUBMITTINGTHEIR SONG DATA FILES TO";
  223. 2955 PRINT" [212][208][213][199]!!!
  224. 2960 [153]"LENARL (null)ARSTADT                           50 LENORDOVA ATNVE. ,#3608
  225. 2965 PRINT"[212]ORONTO, [207]NT.                           [195][193][206][193][196][193]       [205]9[193] 4[216]6
  226. 3000 [141]10:[145]I[137]2710
  227. 3010 [153]"RIGHT$F YOU HAVE ALL THE EQUIPMENT AND CAN   REMEMBER MOST OF THE ";
  228. 3020 [153]"TUTORIAL, LOAD THE APPROPRIATE PROGRAM VERSION, AND THEN
  229. 3030 PRINT"LOAD AND ENJOY THE DEMO!
  230.